-- background: 2624 from stack: in
-- bmap block id: 3158
-- flags: 4000
-- background id: 0
-- name: mainBG
----- HyperTalk script -----
master



-- part 24 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=84 top=301 right=331 bottom=118
-- title width / last selected line: 0
-- icon id / first selected line: 10986 / 10986
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SaveToPhG
----- HyperTalk script -----
on mouseDown
  global picName
  set hilite of me to true
  ask "Please name this picture for phantomGallery." with "Image" & (the ticks)
  if it = empty then
    set the hilite of me to false
    exit mouseDown
  end if
  put it into picName
  set cursor to 4
  checkError hyperScan("CopyCard")
  lock screen
  push cd
  go last
  doMenu "Paste Card"
  choose select tool
  type "A" with commandKey
  type "C" with commandKey
  push cd
  set lockMessages to true
  go stack "phantomGallery"
  type "V" with commandKey
  doMenu "Copy Card"
  type "A" with commandKey
  doMenu "Clear Picture"
  go prev
  doMenu "Paste Card"
  repeat with cycle = 1 to 4
    set the lockText of cd fld cycle to false
  end repeat
  set the cantDelete of this cd to false
  set name of this cd to picName
  put picName into cd fld 1
  pop cd
  set lockMessages to false
  doMenu "Copy Card"
  pop cd
  choose browse tool
  unlock screen
  set hilite of me to false
end mouseDown



-- part 25 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=80 top=296 right=340 bottom=124
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home